#!/usr/bin/perl -w
$temp = $ARGV[0];
$cryptPassword = crypt($temp, "I8");
print "$cryptPassword";
